home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / pushd20.zip / D.CMD < prev    next >
OS/2 REXX Batch file  |  1993-05-30  |  875b  |  41 lines
  1. /* D */
  2. /* Ken Neighbors  30 May 1993 */
  3. /* change directory, slash = backslash */
  4.  
  5. parse arg NewDir rest
  6.  
  7. if ( rest <> '' ) then do
  8.     say '"'rest'"' 'ignored'
  9. end
  10.  
  11. NewDir = translate(NewDir,'\','/');
  12.  
  13. if ( NewDir == '' ) then do
  14.     say beautify(directory());
  15. end
  16. else do
  17.     NewDirVerify = directory(NewDir);
  18.     if ( NewDirVerify == '' ) then do
  19.     say insert(NewDir,': No such directory.')
  20.     exit 1
  21.     end
  22. end
  23.  
  24. exit 0
  25.  
  26. beautify:
  27.     uc='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  28.     lc='abcdefghijklmnopqrstuvwxyz'
  29.  
  30.     parse arg Directory
  31.     if ( Directory <> '' ) then do
  32.     /* Lowercasize the drive letter */
  33.     DriveLetter = substr(Directory,1,1)
  34.     DriveLetter = translate(DriveLetter,lc,uc)
  35.     Directory = overlay(DriveLetter,Directory,1)
  36.  
  37.     /* Lowercasize the whole thing */
  38.     /* Directory = translate(Directory,lc,uc) */
  39.     end
  40. return Directory
  41.